unit uRelatorioPrevisaoRecebimentos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxStyles, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, 
  dxSkinscxPCPainter, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, Buttons, cxGridLevel,
  cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,
  dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
  dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
  dxPSPrVwRibbon, dxPScxPageControlProducer, dxPScxEditorProducers,
  dxPScxExtEditorProducers, dxSkinsdxBarPainter, dxSkinsdxRibbonPainter,
  dxPgsDlg, dxPrnDlg, dxPSCore, dxPScxGrid6Lnk, dxPSDBBasedXplorer,
  dxBarSkinnedCustForm, dxPScxCommon, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, uReportDatamodule, cxGridChartView, cxGridDBChartView,
  ExtCtrls;

type
  TFRelatorioPrevisaoRecebimentos = class(TForm)
    dxPrinter1: TdxComponentPrinter;
    dxEngController: TdxPSEngineController;
    dxgrdrprtlnkPrinter1Link1: TdxGridReportLink;
    lbl37: TLabel;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxgrdRecebimentos: TcxGrid;
    gdRecebimentos: TcxGridDBTableView;
    cxgrdlvlRecebimentos: TcxGridLevel;
    spl1: TSplitter;
    cxgrdvwrpstry1: TcxGridViewRepository;
    cxgrdbchrtvwcxgrdvwrpstry1DBChartView1: TcxGridDBChartView;
    cxgrdbchrtsrscxgrdbchrtvwcxgrdvwrpstry1DBChartView1Series1: TcxGridDBChartSeries;
    qry1: TZQuery;
    ds1: TDataSource;
    cxgrd1: TcxGrid;
    gd1: TcxGridDBTableView;
    cxgrdbclmn1: TcxGridDBColumn;
    cxgrdbclmn2: TcxGridDBColumn;
    cxgrdlvl1: TcxGridLevel;
    cxgrdbclmnRecebimentosdata: TcxGridDBColumn;
    cxgrdbclmnRecebimentostipo: TcxGridDBColumn;
    cxgrdbclmnRecebimentostotalmensal: TcxGridDBColumn;
    tblqry1data: TDateTimeField;
    tbqry1tipo: TMemoField;
    tblqry1totalmensal: TFloatField;
    procedure btn_ImprimirClick(Sender: TObject);
    procedure btn_VizualizarImpressaoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRelatorioPrevisaoRecebimentos: TFRelatorioPrevisaoRecebimentos;

implementation

{$R *.dfm}

procedure TFRelatorioPrevisaoRecebimentos.btn_ImprimirClick(Sender: TObject);
begin
  dxPrinter1.Print(True,nil);
end;

procedure TFRelatorioPrevisaoRecebimentos.btn_VizualizarImpressaoClick(Sender: TObject);
begin
  dxPrinter1.preview(True, nil);
end;

procedure TFRelatorioPrevisaoRecebimentos.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dmreport.Free;
end;

end.
